home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
MG_MAKER.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
2KB
|
59 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME MG_MAKER.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB02.INC"
CLS
IF fMouseSetup?(0) = 0 THEN
PRINT "NO MOUSE AVAILABLE"
END
END IF
SCREEN 12
LINE (301,221) - (340,260), 1, BF
MousePut 320,240
MouseON
? "┌────────────────────────────────────────────────────────────────────────
? "│ MouseMakePTR ( Which$ )
? "├────────────────────────────────────────────────────────────────────────
? "│ Here are some ready-made mouse pointers for your graphic screens. The
? "│ short program below is on automatic so just sit back and watch the
? "│ show.
? "└────────────────────────────────────────────────────────────────────────
DIM M$(10)
FOR X% = 1 TO 10
READ M$(X%)
NEXT
DATA "UPARROW", "PENCIL", "DISKETTE", "RIGHTARROW", "LEFTARROW"
DATA "MOUSE" , "FACE" , "HAND" , "HOURGLASS" , "INVARROW"
FOR X% = 1 TO 10
CALL MouseMakePtr( M$(X%) )
DELAY 2
IF INSTAT THEN EXIT FOR
NEXT
BYEBYE:
MouseOFF
SCREEN 0
END